home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 016a / bingo2.zip / BING_DIF.SC < prev    next >
Text File  |  1991-09-16  |  635b  |  29 lines
  1. PROC TablComp5()
  2. CLEARALL
  3. MENU {Ask} SELECT "Bingo"
  4. CTRLHOME CHECK
  5. [NAME] = "N"
  6. [TYPE] = "T"
  7. DO_IT!
  8. EMPTY "Bingo4"
  9. ADD "Answer" "Bingo4"
  10. IF ISEMPTY("Bingo4")
  11.    THEN MESSAGE " There are NO DIFFERENCES between the tables"
  12.    BEEP SLEEP 1000
  13.    PLAY "Bing_mnu" ENDIF
  14. ENDPROC
  15. TablComp5()
  16. VIEW "Bingo4"
  17. FORMKEY
  18. WAIT TABLE
  19.   PROMPT "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓  Differences between "+StrVal(msay1)+" and "+StrVal(msay2)+"  ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓",
  20.          "        Use , <PgUp>, <PgDn>, <Home> or <End> to SCROLL...<Esc> to QUIT                          "
  21.  
  22. UNTIL "Esc"
  23.   IF Retval = "Esc"
  24. THEN CLEAR ENDIF
  25. PLAY "Bing_mnu"
  26.  
  27.  
  28.  
  29.